home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / GoldED Tools / Macro Collection / Oberon / switches_Global.ged < prev    next >
Encoding:
Text File  |  1996-09-27  |  1.1 KB  |  42 lines
  1. /*
  2. ** $VER: switches_Global 0.005 (28 Sep 1994) ***
  3. **
  4. ** (c) © 1994 Oliver Clouth
  5. **
  6. ** Function : Global switches Oberon-A V1.4
  7. **
  8. **
  9. */
  10.  
  11. ICON = 1
  12.  
  13. DO WHILE (ICON)
  14. 'REQUEST TITLE="Global switches Seite 1"
  15. BODY="(** $C+ **) enable case checking|
  16. (** $C- **) disable case checking||
  17. (** $I+ **) enable array index checking|
  18. (** $I- **) disable array index checking||
  19. (** $L+ **) use absolute long addressing for|
  20.           global variables|
  21. (** $L- **) access global variables through A4||
  22. (** $N+ **) check for NIL pointers|
  23. (** $N- **) ignore NIL pointers||
  24. (** $R+ **) enable range checking|
  25. (** $R- **) disable range checking" BUTTON="Seite 2|OK" VAR ICON'
  26.  
  27. if (ICON = 1) then do
  28. 'REQUEST TITLE="Global switches Seite 2"
  29. BODY="(** $S+ **) Enable stack checking|
  30. (** $S- **) Disable stack checking||
  31. (** $T+ **) enable type checking|
  32. (** $T- **) disable type checking||
  33. (** $V+ **) enable overflow checking|
  34. (** $V- **) disable overflow checking||
  35. (** $Z+ **) zero all global and local variables|
  36. (** $Z- **) suppress zeroing of variables" BUTTON="Seite 1|OK" VAR ICON'
  37. end
  38.  
  39. end
  40.  
  41. Exit
  42.